home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 39
/
Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso
/
Aminet
/
mus
/
misc
/
spcli.lha
/
SongPlayerCLI
/
Rexx
/
SpCLI
/
Play.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
2000-08-23
|
480b
|
23 lines
/*
SongPlayerCLI v1.52 (by Gareth Griffiths)
E-Mail: gazchap@btinternet.com
Play.rexx - Plays the current file in the playlist.
*/
IF ~SHOW('P','SONGPLAYER.1') THEN DO
ADDRESS COMMAND
SAY "Can't find ARexx port 'SONGPLAYER.1'"
EXIT
END
IF ~SHOW('P','SONGPLAYER.1') THEN DO;EXIT;END
ADDRESS 'SONGPLAYER.1'
OPTIONS RESULTS
'PLAY'
'GET_TITLE';title=result
'GET_ARTIST';artist=result
'GET_SELECTED';index=result
ADDRESS COMMAND
SAY 'Now Playing: ('index') 'artist': 'title
EXIT